\ E60d - For noForth C&V 200202: Large thin character set
\ Thin big characters 7 x 16 by Albert Nijhof (code space: 1580 bytes)

chere
: ||    ( bitrow -- )
    0  0D parse  10 min bounds
    ?do  2*  i c@ ch X =  -  loop  , ;

create BIG1    \ Big characters 7 x 16 pixels

|| ................
|| ................
|| ................
|| ................
|| ................
|| ................
|| ................

|| ................
|| ................
|| ...X............
|| ..XXX..XXXXXXXXX
|| ...X............
|| ................
|| ................

|| ...........X..X.
|| ............XXXX
|| ..............X.
|| ................
|| ...........X..X.
|| ............XXXX
|| ..............X.

|| .....X...X......
|| ..XXXXXXXXXXXXXX
|| ......X...X.....
|| ......X....X....
|| .......X...X....
|| ..XXXXXXXXXXXXXX
|| ........X...X...

|| .....X.....XX...
|| ....X.....X..X..
|| ...X.....X....X.
|| ..XXXXXXXXXXXXXX
|| ...X.....X....X.
|| ....X...X....X..
|| .....XXX....X...

|| .....X.....XXX..
|| ......X...X...X.
|| .......X...XXX..
|| ........X.......
|| ...XXX...X......
|| ..X...X...X.....
|| ...XXX.....X....

|| ....XXX.........
|| ...X...X....XXX.
|| ..X.....X.XX...X
|| ..X.....XX.....X
|| ..X...XX..X....X
|| ...X.......XXXX.
|| ....X...........

|| ................
|| ................
|| ...........X..X.
|| ............XXXX
|| ..............X.
|| ................
|| ................

|| ................
|| ................
|| ......XXXXXX....
|| ....XX......XX..
|| ...X..........X.
|| ..X............X
|| ................

|| ................
|| ..X............X
|| ...X..........X.
|| ....XX......XX..
|| ......XXXXXX....
|| ................
|| ................

|| ................
|| .......X...X....
|| ........X.X.....
|| .........XXXX...
|| ........X.X.....
|| .......X...X....
|| ................

|| ................
|| .......X........
|| .......X........
|| ....XXXXXXX.....
|| .......X........
|| .......X........
|| ................

|| ................
|| ................
|| X..X............
|| .XXXX...........
|| ...X............
|| ................
|| ................

|| ................
|| .......X........
|| .......X........
|| .......X........
|| .......X........
|| .......X........
|| ................

|| ................
|| ................
|| ...X............
|| ..XXX...........
|| ...X............
|| ................
|| ................

|| ..XX............
|| ....XX..........
|| ......XX........
|| ........XX......
|| ..........XX....
|| ............XX..
|| ..............XX

|| ....XXXXXXXXXX..
|| ...X..........X.
|| ..X....X.......X
|| ..X.....X......X
|| ..X......X.....X
|| ...X..........X.
|| ....XXXXXXXXXX..

|| ..X.........X...
|| ..X..........X..
|| ..X...........X.
|| ..XXXXXXXXXXXXXX
|| ..X.............
|| ..X.............
|| ..X.............

|| ..XXX........X..
|| ..X..X........X.
|| ..X...X........X
|| ..X....X.......X
|| ..X.....X......X
|| ..X......X....X.
|| ..X.......XXXX..

|| ....X........X..
|| ...X..........X.
|| ..X............X
|| ..X............X
|| ..X......X.....X
|| ...X....X.X...X.
|| ....XXXX...XXX..

|| ......XX........
|| ......X.XX......
|| ......X...XXX...
|| ......X......XXX
|| ......X.........
|| ..XXXXXXXXXXXXXX
|| ......X.........

|| ....X.....XXXXXX
|| ...X......X....X
|| ..X.......X....X
|| ..X.......X....X
|| ..X.......X....X
|| ...X.....X.....X
|| ....XXXXX......X

|| ....XXXXXXXXXX..
|| ...X..........X.
|| ..X......X.....X
|| ..X......X.....X
|| ..X......X.....X
|| ...X....X.......
|| ....XXXX........

|| ..XX...........X
|| ....XX.........X
|| ......XX.......X
|| ........XX.....X
|| ..........XX...X
|| ............XX.X
|| ..............XX

|| ....XXXX...XXX..
|| ...X....X.X...X.
|| ..X......X.....X
|| ..X......X.....X
|| ..X......X.....X
|| ...X....X.X...X.
|| ....XXXX...XXX..

|| ..........XXXX..
|| .........X....X.
|| ..X.....X......X
|| ..X.....X......X
|| ..X.....X......X
|| ...X..........X.
|| ....XXXXXXXXXX..

|| ................
|| ................
|| ...X.....X......
|| ..XXX...XXX.....
|| ...X.....X......
|| ................
|| ................
|| ................
|| ................
|| X..X.....X......
|| .XXXX...XXX.....
|| ...X.....X......
|| ................
|| ................

|| .......X........
|| ......X.X.......
|| .....X...X......
|| ....X.....X.....
|| ...X.......X....
|| ..X.........X...
|| ..X.........X...

|| ................
|| .....X...X......
|| .....X...X......
|| .....X...X......
|| .....X...X......
|| .....X...X......
|| ................

|| ..X.........X...
|| ..X.........X...
|| ...X.......X....
|| ....X.....X.....
|| .....X...X......
|| ......X.X.......
|| .......X........

|| .............X..
|| ..............X.
|| ...X...........X
|| ..XXX..XX......X
|| ...X.....X.....X
|| ..........X...X.
|| ...........XXX..

|| ....XXXXXXXXXX..
|| ...X..........X.
|| ..X............X
|| ..X....XXXX....X
|| ..X...X....X...X
|| ..X...X...X...X.
|| ...X...XXXXXXX..

|| ..XXXXXXXXX.....
|| ...........XX...
|| ......X......XX.
|| ......X........X
|| ......X......XX.
|| ......X....XX...
|| ..XXXXXXXXX.....

|| ..XXXXXXXXXXXXXX
|| ..X............X
|| ..X......X.....X
|| ..X......X.....X
|| ..X......X.....X
|| ...X....X.X...X.
|| ....XXXX...XXX..

|| .....XXXXXXXX...
|| ....X........X..
|| ...X..........X.
|| ..X............X
|| ..X............X
|| ..X............X
|| ...X..........X.

|| ..XXXXXXXXXXXXXX
|| ..X............X
|| ..X............X
|| ..X............X
|| ...X..........X.
|| ....X........X..
|| .....XXXXXXXX...

|| ..XXXXXXXXXXXXXX
|| ..X............X
|| ..X......X.....X
|| ..X......X.....X
|| ..X......X.....X
|| ..X............X
|| ..X............X

|| ..XXXXXXXXXXXXXX
|| ...............X
|| .........X.....X
|| .........X.....X
|| .........X.....X
|| ...............X
|| ...............X

|| .....XXXXXXXX...
|| ....X........X..
|| ...X..........X.
|| ..X............X
|| ..X......X.....X
|| ...X.....X....X.
|| ....XXXXXX......

|| ..XXXXXXXXXXXXXX
|| ................
|| .........X......
|| .........X......
|| .........X......
|| .........X......
|| ..XXXXXXXXXXXXXX

|| ................
|| ..X............X
|| ..X............X
|| ..XXXXXXXXXXXXXX
|| ..X............X
|| ..X............X
|| ................

|| ....X...........
|| ...X............
|| ..X............X
|| ...X...........X
|| ....XXXXXXXXXXXX
|| ...............X
|| ...............X

|| ..XXXXXXXXXXXXXX
|| ................
|| ........X.......
|| ........XX......
|| ......XX..XX....
|| ....XX......XX..
|| ..XX..........XX

|| ..XXXXXXXXXXXXXX
|| ..X.............
|| ..X.............
|| ..X.............
|| ..X.............
|| ..X.............
|| ..X.............

|| ..XXXXXXXXXXXXXX
|| ..............X.
|| .............X..
|| ...........XX...
|| .............X..
|| ..............X.
|| ..XXXXXXXXXXXXXX

|| ..XXXXXXXXXXXXXX
|| ...........X....
|| .........XX.....
|| .......XX.......
|| .....XX.........
|| ....X...........
|| ..XXXXXXXXXXXXXX

|| .....XXXXXXXX...
|| ....X........X..
|| ...X..........X.
|| ..X............X
|| ...X..........X.
|| ....X........X..
|| .....XXXXXXXX...

|| ..XXXXXXXXXXXXXX
|| ...............X
|| ........X......X
|| ........X......X
|| ........X......X
|| .........X....X.
|| ..........XXXX..

|| .....XXXXXXXX...
|| ....X........X..
|| ...X..........X.
|| ..X.XXXX.......X
|| ...X..........X.
|| ..X.X........X..
|| .X...XXXXXXXX...

|| ..XXXXXXXXXXXXXX
|| ...............X
|| ........X......X
|| .......XX......X
|| .....XX.X......X
|| ...XX....X....X.
|| ..X.......XXXX..

|| ....X......XXX..
|| ...X......X...X.
|| ..X......X.....X
|| ..X......X.....X
|| ..X......X.....X
|| ...X....X.....X.
|| ....XXXX.....X..

|| ...............X
|| ...............X
|| ...............X
|| ..XXXXXXXXXXXXXX
|| ...............X
|| ...............X
|| ...............X

|| ....XXXXXXXXXXXX
|| ...X............
|| ..X.............
|| ..X.............
|| ..X.............
|| ...X............
|| ....XXXXXXXXXXXX

|| .......XXXXXXXXX
|| .....XX.........
|| ...XX...........
|| ..X.............
|| ...XX...........
|| .....XX.........
|| .......XXXXXXXXX

|| ...XXXXXXXXXXXXX
|| ..X.............
|| ...X............
|| ....XXX.........
|| ...X............
|| ..X.............
|| ...XXXXXXXXXXXXX

|| ..XX..........XX
|| ....XX......XX..
|| ......XX..XX....
|| ........XX......
|| ......XX..XX....
|| ....XX......XX..
|| ..XX..........XX

|| ..............XX
|| ............XX..
|| ..........XX....
|| ..XXXXXXXX......
|| ..........XX....
|| ............XX..
|| ..............XX

|| ..XX...........X
|| ..X.XX.........X
|| ..X...XX.......X
|| ..X.....XX.....X
|| ..X.......XX...X
|| ..X.........XX.X
|| ..X...........XX

|| ................
|| ..XXXXXXXXXXXXXX
|| ..X............X
|| ..X............X
|| ..X............X
|| ..X............X
|| ................

|| ..............XX
|| ............XX..
|| ..........XX....
|| ........XX......
|| ......XX........
|| ....XX..........
|| ..XX............

|| ................
|| ..X............X
|| ..X............X
|| ..X............X
|| ..X............X
|| ..XXXXXXXXXXXXXX
|| ................

|| ........X.......
|| .........XX.....
|| ...........XX...
|| .............XXX
|| ...........XX...
|| .........XX.....
|| ........X.......

|| .X..............
|| .X..............
|| .X..............
|| .X..............
|| .X..............
|| .X..............
|| .X..............

|| ................
|| ................
|| ..............X.
|| ............XXXX
|| ...........X..X.
|| ................
|| ................

|| ...XX...........
|| ..X..X....X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ...X.....X......
|| ..X.XXXXX.......

|| ..XXXXXXXXXXXXXX
|| ...X............
|| ..X.......X.....
|| ..X.......X.....
|| ..X.......X.....
|| ...X.....X......
|| ....XXXXX.......

|| ....XXXXX.......
|| ...X.....X......
|| ..X.......X.....
|| ..X.......X.....
|| ..X.......X.....
|| ..X.......X.....
|| ...X.....X......

|| ....XXXXX.......
|| ...X.....X......
|| ..X.......X.....
|| ..X.......X.....
|| ..X.......X.....
|| ...X............
|| ..XXXXXXXXXXXX..

|| ....XXXXX.......
|| ...X.....X......
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X....X..X.....
|| ........XX......

|| ..........X.....
|| ..........X.....
|| ..XXXXXXXXXXXX..
|| ..........X...X.
|| ..........X....X
|| ...............X
|| ...............X

|| .....XXXX.......
|| X...X....X......
|| X..X......X.....
|| X..X......X.....
|| X..X......X.....
|| .X.......X......
|| ..XXXXXXXXX.....

|| ..XXXXXXXXXXXXXX
|| .........X......
|| ..........X.....
|| ..........X.....
|| ..........X.....
|| .........X......
|| ..XXXXXXX.......

|| ................
|| ..X.............
|| ..X..........X..
|| ..XXXXXXXX..XXX.
|| ..X..........X..
|| ..X.............
|| ................

|| X...............
|| X...............
|| X...............
|| .X...........X..
|| ..XXXXXXXX..XXX.
|| .............X..
|| ................

|| ..XXXXXXXXXXXXXX
|| ................
|| ......X.........
|| .....X.X........
|| ....X...X.......
|| ...X.....X......
|| ..X.......X.....

|| ................
|| ................
|| ..X.............
|| ..XXXXXXXXXXXXXX
|| ..X.............
|| ................
|| ................

|| ..XXXXXXXXX.....
|| .........X......
|| ..........X.....
|| ..XXXXXXXXX.....
|| .........X......
|| ..........X.....
|| ..XXXXXXXXX.....

|| ..XXXXXXXXX.....
|| .........X......
|| ..........X.....
|| ..........X.....
|| ..........X.....
|| .........X......
|| ..XXXXXXX.......

|| ....XXXXX.......
|| ...X.....X......
|| ..X.......X.....
|| ..X.......X.....
|| ..X.......X.....
|| ...X.....X......
|| ....XXXXX.......

|| XXXXXXXXXXX.....
|| .........X......
|| ...X......X.....
|| ...X......X.....
|| ...X......X.....
|| ....X....X......
|| .....XXXX.......

|| .....XXXX.......
|| ....X....X......
|| ...X......X.....
|| ...X......X.....
|| ...X......X.....
|| ..........X.....
|| XXXXXXXXXXX.....

|| ..XXXXXXXXX.....
|| ........X.......
|| .........X......
|| ..........X.....
|| ..........X.....
|| ..........X.....
|| .........X......

|| .......XXX......
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ..X...X...X.....
|| ...XXX..........

|| ..........X.....
|| ..........X.....
|| ....XXXXXXXXXX..
|| ...X......X.....
|| ..X.......X.....
|| ..X.............
|| ..X.............

|| ....XXXXXXX.....
|| ...X............
|| ..X.............
|| ..X.............
|| ..X.............
|| ...X............
|| ..XXXXXXXXX.....

|| .....XXXXXX.....
|| ....X...........
|| ...X............
|| ..X.............
|| ...X............
|| ....X...........
|| .....XXXXXX.....

|| ...XXXXXXXX.....
|| ..X.............
|| ...X............
|| ....XX..........
|| ...X............
|| ..X.............
|| ...XXXXXXXX.....

|| ..XX.....XX.....
|| ....X...X.......
|| .....X.X........
|| ......X.........
|| .....X.X........
|| ....X...X.......
|| ..XX.....XX.....

|| X.....XXXXX.....
|| .X...X..........
|| ..X.X...........
|| ...X............
|| ....X...........
|| .....X..........
|| ......XXXXX.....

|| ..XX......X.....
|| ..X.X.....X.....
|| ..X..X....X.....
|| ..X...X...X.....
|| ..X....X..X.....
|| ..X.....X.X.....
|| ..X......XX.....

|| ................
|| .........X......
|| .........X......
|| ........X.X.....
|| ....XXXX...XXX..
|| ...X..........X.
|| ..X............X

|| ................
|| ................
|| ................
|| ..XXXXXXXXXXXXXX
|| ................
|| ................
|| ................

|| ..X............X
|| ...X..........X.
|| ....XXXX...XXX..
|| ........X.X.....
|| .........X......
|| .........X......
|| ................

|| .......X........
|| ........X.......
|| ........X.......
|| .......X........
|| ......X.........
|| ......X.........
|| .......X........

: TEMIT     ( c -- )
    c>n  80 x -  dup 09 < if    \ Line full?
      dup &eol                  \ Erase end of line
      x y 1+ xy  dup &eol       \ Erase end of next line too
      0 y 1+ xy                 \ To start of new line
    then  drop
    0E * big1 +  dup 7 .bitrow  \ First half of big char
    x y 1+ xy 1+ 7 .bitrow      \ Second half of big char
    x 09 + y 1-  xy ;           \ x & y to new char position

: THIN      ['] temit to o-emit ;

cr ." Length " chere swap - dm .  ." bytes "

: THINDEMO   ( -- )             \ Display thin large token set
    display-setup  thin  &page
    &" Egel project"            \ Startup message
    0A 2 xy" Characters"        \ To line 2
    18 4 xy" by A.N."           \ To line 4
    key drop  &page
    bl 30 bounds do  i &emit  loop
    key drop  &page
    ch P 2F bounds do  i &emit  loop ;

shield THIN\  freeze
